home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / nrpas13.zip / PROBKS.DEM < prev    next >
Text File  |  1991-04-29  |  716b  |  32 lines
  1. PROGRAM d13r12(input,output);
  2. (* driver for routine PROBKS *)
  3. CONST
  4.    npts=20;
  5.    eps=0.1;
  6.    iscal=40;
  7. VAR
  8.    alam,aval : real;
  9.    i,j : integer;
  10.    txt : PACKED ARRAY [1..iscal] OF char;
  11.  
  12. (*$I MODFILE.PAS *)
  13. (*$I PROBKS.PAS *)
  14.  
  15. BEGIN
  16.    writeln('probability function for kolmogorov-smirnov statistic');
  17.    writeln;
  18.    writeln('lambda':7,'value:':10,'graph:':13);
  19.    FOR i := 1 to npts DO BEGIN
  20.       alam := i*eps;
  21.       aval := probks(alam);
  22.       FOR j := 1 to iscal DO BEGIN
  23.          IF (j <= round(iscal*aval)) THEN BEGIN
  24.             txt[j] := '*'
  25.          END ELSE BEGIN
  26.             txt[j] := ' '
  27.          END
  28.       END;
  29.       writeln(alam:8:6,aval:10:6,' ':5,txt)
  30.    END
  31. END.
  32.